home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / spell.tf < prev    next >
Text File  |  1995-08-12  |  472b  |  18 lines
  1. ;;; spelling checker
  2. ;;; This lets you type ESC-s to check the spelling of the current line.
  3. ;;; If any misspellings are found, you will be told.
  4. ;;; This requires the "spell" utility on your local system.
  5.  
  6. /~loaded spell.tf
  7.  
  8. /def -i spell_line = \
  9.     /setenv ARGS=$(/recall -i 1)%; \
  10.     /let errs=$(/quote -S -decho !echo $$ARGS | spell)%; \
  11.     /if ( errs !~ "" ) \
  12.         /echo MISSPELLINGS: %errs%; \
  13.     /endif%; \
  14.     /test errs =~ ""
  15.  
  16. /def -ib^[s = /spell_line
  17.  
  18.